﻿Imports StartFrame.Web.Handlers
Imports StartFrame.BR.Web.Mantenimiento.Administracion.Seguridad
Imports StartFrame.BR.Web.GLP.Abms
Imports StartFrame.BR.Web

Namespace Handlers.Mantenimiento.Administracion.Seguridad

    Public Class ConfUsuarios
        Inherits GLPBaseHandler

        ''' <summary>
        ''' Manejador (handler) de los eventos (acciones) asociados a la configuración de los usuarios registrados en el sistema
        ''' </summary>
        Public Overrides Sub InicializarDatos()
            MyBase.InicializarDatos()
            _Abm = New Usuario()
            _Pagina = "~/UserPages/Mantenimiento/Administracion/Seguridad/ConfUsuarios.js"
        End Sub

        ''' <summary>
        ''' Devuelve una lista de todos los grupos de usuarios
        ''' </summary>
        Public Sub ObtenerGrupos()
            _Context.Response.ContentType = "text/plain"
            _Context.Response.Write(CType(_Abm, Usuario).ObtenerGrupos())
        End Sub

        ''' <summary>
        ''' Relaciona el operador con el grupo, insertando la nueva relación y eliminando cualquier que exista previamente
        ''' </summary>
        Public Sub SetearGrupo()
            _Context.Response.ContentType = "text/plain"
            Try
                CType(_Abm, Usuario).setGrupo(_RequestData("cd_operador"), _RequestData("cd_grupo"))
                _Context.Response.Write("{ success: true }")
            Catch ex As Exception
                _Context.Response.Write(String.Format("{{ success: false, message: '{0}' }}", ex.Message))
            End Try
        End Sub

        ''' <summary>
        ''' Devuelve una lista de todos los grupos de usuarios
        ''' </summary>
        Public Overloads Sub ObtenerGrupoOperador()
            _Context.Response.ContentType = "text/plain"
            _Context.Response.Write(CType(_Abm, Usuario).getGrupo(_RequestData("cd_operador")))
        End Sub
    End Class
End Namespace